---
title: "Cost-Benefit Analysis of Urban Forest"
output: 
  flexdashboard::flex_dashboard:
    storyboard: false
    social: menu
    source: embed
---

```{r, message=FALSE, warning=FALSE, include=FALSE, echo=FALSE}
# install packags and library
# install.packages("leaflet")
#install.packages("flexdashboard")
#install.packages("shiny")
#install.packages("here")
#install.packages("dplyr")

library(shiny)
library(flexdashboard)
library(leaflet)
library(here)
library(dplyr)
```


```{r, message=FALSE, warning=FALSE, include=FALSE, echo=FALSE}
# load data 
dat <- read.csv(here("data/trees-cost-benefit.csv"))

```



Introduction {.storyboard}
=========================================
### Cost Benefit Analysis of developing Urban Forest in Phoenix, AZ. 
```{r}
leaflet() %>%
  addTiles(options = providerTileOptions(minZoom = 8, maxZoom = 10)) %>%
  addMarkers(lng=-112.0740, lat=33.4484, popup="City Center Phoenix, AZ")
```

***

**Location**: Phoenix, AZ -- State Capital of Arizoan and Fifth most populous ciy in the United States.    
**Objectives**: Increase the Urban forest to offset the Carbon-Di-Oxide (CO2) generated by air travel by providing Cost-Beneefit analysis of five most comman urban tree species in the area.    
**Data Used**: Cost and Benefit of each of those species for a span 30 years.    
**Process**: Investigate the number of trees needed to offest the CO2 generated by a flight. Then navigate through details of cost and benefit provided by these trees while presenting the user with Net Present Value of the tree investement. 

Select Carbon Generation to offset {data-orientation=rows}
=========================================


### Estimate the carbon generation and trees needed to offset it

Sidebar {.sidebar}
-------------------------------------
```{r}
## insert widget for user input

radioButtons("radio.flight", label = h4("Select an appropriate round trip flight"),
    choices = list("Cross Counrty Flight (Approximately Six Hours Flight)" = "3700",
                "Same Sector Flight (Approximately Three Hours Flight)" = "1210",
                "Same Sector shorter Flight (Approximately Two hours Flight)" = "950"), 
    selected = c("3700")
             )


#fluidPage(
 # radioButtons("radio.flight", label = h3("Select an appropriate round trip flight"),
  #  choices = list("Cross Counrty Flight (Approximately Six Hours Flight)" = 1, 
    #               "Same Sector Flight (Approximately Three Hours Flight) " = 2, 
     #              "Same Sector shorter Flight (Approximately Two hours Flight)" = 3), 
   # selected = 1)
#,
   # hr(),
 # fluidRow(column(3, verbatimTextOutput("value")))
#)

## insert widget for tree selection by the user from the list provided
fluidPage(
  radioButtons("radio.tree", label = h3("Select the type of tree to offset carbon generated"),
    choices = list("Mesquite" = "mesquite", 
                   "Blue Palo Verde " = "blue palo verde", 
                   "Aleppo Pine" = "aleppo pine",
                   "Chinese Elm" = "chinese elm", 
                   "Plao Brea" = "palo brea"), 
    selected = c("mesquite")),
  
 # hr(),
 # fluidRow(column(3, verbatimTextOutput("value")))
)

```

Outputs
-------------------------------------

### Number of trees needed to offset the carbon

```{r}
# tree.var<- dat %>% 
 # filter (species %in% input$radio.tree)

```




*** 
Analysis {.storyboard}
=========================================


### Details of cost and benefit of Properly installing a tree

```{r}

```

*** 

### Details of cost and benefit of conveniently installing a tree

```{r}

```

***

### Net present Value of Cost Benefit analysis 

```{r}

```